/*
 Bug ID: 001
 Origin: received from Ian Miller .
 Version: found in 0.1b;
 Symptom: parser failure when encountering constants into
	a concatenation expression.
 Fixing status: fixed in 0.2b.
*/

module tst(a, b, result);

input a, b;
output [3:0] result;
wire [3:0] result;

assign result = {a, 1'b0, a, b};

initial begin
  $strobe ("result = %b", result);
  a = 1;
  #1;
  a = 2;
  #1;
end

endmodule
